Leonardo daVinci/LEODAVINCI.ISO/DATA/G2.Dxr/00161_Level 3 frame script.ls

Text File | 1996-11-22 | 5.3 KB | 161 lines

global vCurG2SubEntryObj, vCurG2PageObj, sL3OriginalText, sL3English, sL3PrevPage, sL3NextPage, sL3Hilite, sL3Image, vSpriteParty, cMagMinus, cUp, cLeft, cRight, cDown, cLeftU, cLeftD, cRightU, cRightD, vImgLeft, vImgTop, vImgRight, vImgBottom, vStageWnd, vHdl, vImgWidth, vImgHeight, gL3Rect0, gL3Rect1, gL3Rect2, gL3Rect3, gL3Rect4, gL3Rect5, gL3Rect6, gL3Scroll1, gL3Scroll2, gL3Scroll3, gL3Scroll4, gL3Scroll5, gL3Scroll6, vStandardNavObjects, iBHE, fRestoreContext, vRestoreContext

on enterFrame
  if fRestoreContext then
    set theG2PageSub to getaProp(vRestoreContext, #G2PageSub)
    set theG2PageObj to getAt(vG2PageObjList, theG2PageSub)
    L3Hello(theG2PageObj)
    set fRestoreContext to 0
  end if
end

on exitFrame
  set p to point(the mouseH, the mouseV)
  if objectp(vCurG2PageObj) then
    roll(getAt(vStandardNavObjects, iBHE), p)
    set screenImageHeight to 450
  else
    set screenImageHeight to 480
  end if
  set gL3Rect0 to rect(85, 85, 555, screenImageHeight - 85)
  set gL3Rect1 to rect(73, 73, 567, screenImageHeight - 73)
  set gL3Rect2 to rect(61, 61, 579, screenImageHeight - 61)
  set gL3Rect3 to rect(49, 49, 591, screenImageHeight - 49)
  set gL3Rect4 to rect(37, 37, 603, screenImageHeight - 37)
  set gL3Rect5 to rect(25, 25, 615, screenImageHeight - 25)
  set gL3Rect6 to rect(0, 0, 640, screenImageHeight)
  if inside(p, gL3Rect0) then
    set scrollTF to 0
    set scrollVal to 0
  else
    if inside(p, gL3Rect1) then
      set scrollTF to 1
      set scrollVal to gL3Scroll1
    else
      if inside(p, gL3Rect2) then
        set scrollTF to 1
        set scrollVal to gL3Scroll2
      else
        if inside(p, gL3Rect3) then
          set scrollTF to 1
          set scrollVal to gL3Scroll3
        else
          if inside(p, gL3Rect4) then
            set scrollTF to 1
            set scrollVal to gL3Scroll4
          else
            if inside(p, gL3Rect5) then
              set scrollTF to 1
              set scrollVal to gL3Scroll5
            else
              if inside(p, gL3Rect6) then
                set scrollTF to 1
                set scrollVal to gL3Scroll6
              end if
            end if
          end if
        end if
      end if
    end if
  end if
  if scrollTF then
    set scrollx to 0
    if inside(p, rect(0, 0, 85, screenImageHeight)) then
      if vImgLeft > 0 then
        set scrollx to max(-scrollVal, 0 - vImgLeft)
      end if
    else
      if inside(p, rect(555, 0, 640, screenImageHeight)) then
        if vImgRight < vImgWidth then
          set scrollx to min(scrollVal, vImgWidth - vImgRight)
        end if
      end if
    end if
    set scrolly to 0
    if inside(p, rect(0, 0, 640, 85)) then
      if vImgTop > 0 then
        set scrolly to max(-scrollVal, 0 - vImgTop)
      end if
    else
      if inside(p, rect(0, screenImageHeight - 85, 640, screenImageHeight)) then
        if vImgBottom < vImgHeight then
          set scrolly to min(scrollVal, vImgHeight - vImgBottom)
        end if
      end if
    end if
    if (scrollx = 0) and (scrolly = 0) then
      set scrollTF to 0
    end if
  end if
  if scrollTF then
    if (scrollx <> 0) and (scrolly <> 0) then
      if scrollx < 0 then
        if scrolly < 0 then
          set the cursor of sprite sL3Image to cLeftU
        else
          set the cursor of sprite sL3Image to cLeftD
        end if
      else
        if scrolly < 0 then
          set the cursor of sprite sL3Image to cRightU
        else
          set the cursor of sprite sL3Image to cRightD
        end if
      end if
    else
      if scrollx <> 0 then
        if scrollx < 0 then
          set the cursor of sprite sL3Image to cLeft
        else
          set the cursor of sprite sL3Image to cRight
        end if
      else
        if scrolly < 0 then
          set the cursor of sprite sL3Image to cUp
        else
          set the cursor of sprite sL3Image to cDown
        end if
      end if
    end if
    set vImgLeft to vImgLeft + scrollx
    set vImgTop to vImgTop + scrolly
    set vImgRight to vImgRight + scrollx
    set vImgBottom to vImgBottom + scrolly
    Corbis_ShowImage(vStageWnd, vHdl, vImgLeft, vImgTop, vImgRight, vImgBottom, 0, 0)
  else
    set the cursor of sprite sL3Image to cMagMinus
  end if
  case checkFocusSwitch() of
    #onTop, #notOnTop, #switch:
      Corbis_ShowImage(vStageWnd, vHdl, vImgLeft, vImgTop, vImgRight, vImgBottom, 0, 0)
    #noSwitch:
      nothing()
  end case
  puppetPalette(the framePalette)
  go(the frame)
end

on idle
  if rollOver(sL3OriginalText) then
    set the member of sprite sL3Hilite to member "L3UIbarOriginal glo" of castLib "G2_g"
    set the loc of sprite sL3Hilite to point(320, 240)
  else
    if rollOver(sL3English) then
      set the member of sprite sL3Hilite to member "L3UIbarEnglish glo" of castLib "G2_g"
      set the loc of sprite sL3Hilite to point(320, 240)
    else
      if rollOver(sL3PrevPage) then
        set the member of sprite sL3Hilite to member "L3UIbarPrevPage glo" of castLib "G2_g"
        set the loc of sprite sL3Hilite to point(320, 240)
      else
        if rollOver(sL3NextPage) then
          set the member of sprite sL3Hilite to member "L3UIbarNextPage glo" of castLib "G2_g"
          set the loc of sprite sL3Hilite to point(320, 240)
        else
          set the loc of sprite sL3Hilite to vSpriteParty
        end if
      end if
    end if
  end if
end